home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
User's Choice Windows CD
/
User's Choice Windows CD (CMS Software)(1993).iso
/
utility2
/
wine02bx.zip
/
LISP
/
PACKAGES
/
TIME.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
2KB
|
27 lines
;;; compiled by jwz@thalidomide on Fri Dec 11 18:48:21 1992
;;; from file /cadillac-th/jwz/emacs19/lisp/packages/time.el
;;; emacs version 19.4 Lucid.
;;; bytecomp version 2.08; 27-aug-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(require 'timer)
(defvar display-time-interval 60 "\
*Seconds between updates of time in the mode line.")
(defvar display-time-echo-area nil "\
*If non-nil, display-time will use the echo area instead of the mode line.")
(byte-code "└┴!¼é┬┬ç" [boundp display-time-string nil] 2)
(fset 'display-time #[nil "└┴!ë½ä├\n!ê)¼à¼é╞¼è╟>¼à╚╔\"╩ ê╦┴╩ë$ç" [get-timer "display-time" old delete-timer display-time-echo-area global-mode-string ("") display-time-string append (display-time-string) display-time-function start-timer display-time-interval] 6 "\
Display current time and load level in mode line of each buffer.
Updates automatically every minute.
If display-time-day-and-date is non-nil, the current day and date
are displayed as well.
If display-time-echo-area is non-nil, the time is displayed in the
echo area instead of in the mode-line." nil])
(byte-code "└┴Mê┬├!ç" [display-time-function #[nil "└ ┴┬├ @\"┼╞!«ç┼╟!«é╚ P╔ëë\n╨╤╥O!ë╙Y╙V½ê╙Z¬ë╘U½â╙┴╒\"╥╓O½â╫¬ü╪╘┘O┌┘╔O█!½ì▄▌!8╘V½â▐¬ü▀░\n ½è╘╤O\nP\n!½ìΓ π =«öèΣï)¬Ä\n%èµ qê)τΦ !.ç" [current-time-string format "%03d" load-average rmail-spool-directory getenv "LOGNAME" "USER" user-login-name nil string pm hour mail-spool-file load time read 11 13 12 0 "%d" 16 "pm " "am " -2 "." file-exists-p 7 file-attributes " Mail" "" display-time-day-and-date display-time-echo-area selected-window minibuffer-window ((byte-code "└┴ !ê┬ ê├ GZ┼Zjêcê╞╟ !ç" [select-window minibuffer-window erase-buffer screen-width string 1 message buffer-string] 2)) display-time-string other-buffer set-buffer-modified-p buffer-modified-p] 10] provide time] 2)